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ABSTRACT 

THIS PROGRAM IS INTENDED AS A BRUTE FORCE RCUTIFIE 



6-^ TO EXECUTE AN OPERATION OR SERIES OF OPERATIONS. CONTrcC-S-t 

REGARDLESS :F THE RESULTS OF THE OPERATION. BECAUSE 
CF THE COMPLEXITY OF THE TUlb MAG TAPE SYSTEM AS 
OPERATED ON THE MASSBUS, IT IS NOT ALUAYS POSSIBLE TO 
PROVIDE FOR EVERY CONTII^GENCY IN THE NORMAL PROGRAMS. 
65 THEREFORE THIS UTILITY DRIVER WILL ALLOW AN OPERATOR 

Sl TO EXECUTE ANN THING DESIRED IN ANY ORDER. THERE ARE 

It no error checks or printouts made, and any VARIATION 

la FROM PRESET SEQUENCES AND VALUES ARE MADE BY 

11 CHANGING THE APFROPIATE MEMORY LOCATIONS. 

•1 2. RE3UIREMENTS 

73 



E.l 



HARDWARE: 



A. ANY PDP-li PROCESSOR - WITH OR WITHOUT HARDWARE SWI'C^* .REGISTER. 

B. RH MASSBUS CONTROLLER 

C. TM02 MAG TAPE CONTROLLER 

0. AT LEAST ONE (D TU1& SLAVE 



i.2 STORAGE: 

53 THIS PROGRAM REQUIRES AT wEAST 3k CORE 

is 3. uOADING PROCEDURE: 

% 

is USE STANDARD 3INARY LOADING PPCCEDliRE 

^ STARTING PROCEDURE 

91 

93 THE PROGRAM IS ALWAYS STARTED AT LOCATION 200:85 

S #*»LOC. 178 tSWREG) IS DEFINED AS THE SOFTWARE SWITCH REGISTER 
H (REFER TO SECTION S FOR MORE DETAIL) 

% ♦WIF THE SOFTWARE SWITCH REGISTER USED THE DIAGrWST^ TVPK 0^^ FOL^CklN 
=2 MESSAGE: SWR=XXXXXX NEWs i REFER TO SECTION 5 FOR OPERATOR OPTIyNs: 

'zi AT THE Start cf the program. 
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• fa 
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5. CONSOLE SUITCH SETTINGS 



IF THE PIftGNOSTIC Ig R'JN ON A CPU UITHOUT P SUITCH 
REGISTER THEN A SOFTuARE SUITCH REGISTER IS USEC wHiCri ALLCUS 
THE USER THE SAME SUITCH OPTIONS AS THE HAF^iUARE SUlTCri PEGirEft. 
IF THE HAROUARE SUITCH REGISTER DOES NOT EXIST OR IF OfC t'jH 
AND IT CONTAINS ALL ONES (177777] THEN ^HE SOFTUARE SUITCH 
REGISTER (LOC. 176) IS USED. 



CONTROL: 



:i5 THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTUAfS SUITCH 

lis REGISTER iLOC. 17b) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 

DOING 



THE FCLLOUING: 

' Mr£ CONTROL G ^tU'; mis will mllum inc im iu 
LOC. 17b A' SELECTED POINTS WITHIN THE PROGRAM. 



;I9 l> TYPE CONTROL G ctG>j THIS WILL ALLOW THE TTY TO ENTER DATA INTO 



2) THE MACHINE WILL THEN TYPE: SURsXXXXXXNEWs CXXXXXX IS THE XTAL CONTENTS 
OF THE SOFTUARE SUITCH REGISTER.) 

3: AFTER THE "NEUs" HAS BEEN TYPED THEN THE OPERATOR CAN CO ONE 
OF THE FCLLOUING AT THE TTY: 



13: WILL BE ALLOWED) 

'■3- " " 



a: type a number TO BE LOADED INTO LCC. 17& FCLLOI«D BY A cCR". 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY b fOBEK 

WILL BE Ai :: 

IF A \CR^ IS THE FIRST KEY DEPRESSED T« SOFTWARE SUITCH 
:3i REGISTER CONTENTS WILL NCT BE CHANGED. 

'33 

:3t B) IF A CONTRX U ^fU* IS DEPRESSED T«N THE PROGRAM UILL SETC Y3U 

:3S BACK TO STEP 2. 

ir SWiSClOOOOC): i=§IOPQggp SACH OPERATION 

isl SiiI4£0MOC0O): IsSTOP^rTHE END OF THE OPERATION SEQUENCE 

>: OsPROCEED 

>: SU13(020000): IsIGNORE END OF TAPE (EOT) 

:-ic OsREUINO AT END OF TAPE (EOT) 

•J* 

:4h 5.1 HALT 



**tTO CHANGE THE CONTENTS OF SURES TYPE • ?G> BEFORE PRESSING CCNTINIJE SFTz? - 



152 

is: 

153 
ISH 
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157 
159 
:59 
160 
161 
I6e 
163 
It** 
165 



Ifc? 

173 
171 

« 

173 
174 
175 
•7t 

'70 

17? 
ISO 
181 
192 
183 
194 
195 
1% 

:S7 

18S 

:%} 

191 
192 
193 
I9«» 
195 
196 
:97 
196 
199 



2:: 

232 
2:2 
='4 



6. 



(PAGE 2) 
OPERfiTION 



THE PROGRftfl OPERfiTION IS QUITE SIMPLE. BUT DOES 
REQUIRE THE OPERATOR TO HfiVE KNOWLEDGE OF THE 
TJ16 TAPE SYSTEM AS OPERATED ON THE RH MASSBUS 
CONTROLLER. THE OPERATOR MUST BE ABLE TO DECIDE 
WHICH SEQUENCE OF OPERATION IS REQUIRED. AND 
WHAT VALUES TO ASSIGN TO THE VARIOUS PARAMETERS 
REQUIRED TO EXECUTE THEM. THE OPERATION SEQUENCE 
IS SET UP BY LOADING A TABLE WITH THE FUNCTION 
CODES OF THE DESIRED OPERATIONS AND SETTING THE 
NUMBER OF OPERATIONS IN A COUNTER. THE PROGRAM 15 
SET UP TO DO A WRITE OF TEN (8) WORDS OF ALL 
ONES DATA TO SLAVE ZERO (0) ON DRIVE ZERO (G) IN 
PE 11600 BPI) WITH A NINE TRACK NORMAL DATA FORMAT. 
THE DATA ADDRESS IS 3000 (S). THE OPERATION SEQUENCE 
IS SET TO DO A SINGLE WRITE. IF LOADED AND STARTED 
AT 200 (8) WITH NO CHANGES MADE AND SWITCH 14 AND 15 
SET TO A ZERO (0), THIS OPERATION WILL 8E EXECUTED 
CONTINUOUSLY. 

THE FOLLOWING IS THE LIST OF PARAMETERS WHICH MAY 
BE VARIED AND A DESCRIPTION OF EACH ALONG WITH T.HEIR 
CORE LOflCATION: 



PARAMETER 
RH ADORESS 
DRIVE NUMBER 



LOCATION 

600 

700 



UNIT DESCRIPTION 702 

FRAHE COUNT 704 

UORC COUNT 706 

READ ADDRESS 710 

WRITE ADDRESS 712 

READY DELAY 714 

READY MULTIPLIER 716 



DESCRIPTION 

ADDRESS OF RH (THE FIRST REGISTER A2DRESS: IS! 

SET TO SELECT TMC2 NUffflER ADDRESS 0-7 

SET SELECTED SLAVE NUMBER (0-7> IN SITS ■:.i.2 
SELECT PARITY IN SIT 3 iC=ODD 1=EVEN: 
SELECT DATA FORMAT IN BITS «*.5.6.7 
SELECT DENSITY IN BITS 8.9. 16 

SET NUMBER OF FRAMES TO WRITE PER WORD COIJ^T ANC 
IN TUGS' COMPLIMENT 

SET NUMBER OF l^CROS TO BE TRANS- ERRED IN TUCS* C 

SET DESIRED ADDRESS FOR START OF READ SUFFER. 

SET DESIRED ADDRESS FOR START OF tWITE BUFER. 

THIS DELAY VALUE IS USED BY THE PfiCG.RAM TO ESTAB 
A MAXIMUM TIME TO AWAIT THE COMPLETION OF AN OPE 
BEFORE PROCEEDING TO THE NEXT. »*C DEFAULT IS APP 

IF THE VALUE SET INTO 714 DOES NOT ALLOW ENOUGH 
INCREASE THE SIZE OF THE MULTIPLIER. EACH INCRE 
MULTIPLIER WILL CAUSE THE 714 DELfi> TO BE EXECLT 
THAT MANY MORE TIMES. 



GDI 
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|Cb (PME 3) 

|;9 OPERATION DELftY 7£C 

£12 
|1I 

ll§ OPER MULTIPLIER 722 

1:5 OPERATION NUMBER 724 
lib 

ta* ■ 

ilS 

lia OPERATION TABLE 740-770 

25' 
222 
223 
224 

iM &.1 FUNCTION COOES 

Mb 20=REA0 in PRESET 

229 02=REMIND-0FF LINE 

23C Ob=REMIND 

231 1Q=DRIVE CLEAR 

232 26=URITE TAPE MARK 
232 24=ERASE 

234 30=SPACE FORWARD 

235 32=SPACE REVERSE 

Z% 50=WRITE CHECK FORUARC 

W SfcsWRITE CHECK REVERSE 

238 &0=WRITE FORWARD 

239 7D=R£AD FORWARD 
24C 7b=REA0 REVERSE 
=41 



LOADED AND USED JUST AS IN THE READY DELAY(7l-*, 
** (DEFAULT IS APPRCX 54 MS FOR PDP-11/20)M 

THIS IS USED JUST AS THE READY DELAY MULTIPLIER: 

THIS IS THE NUMBER OF OPERATICr<S TO BE PERFORMED 
IN A SEQUENCE AND SHOULD REFLECT THE NUMBERS 
OF OPERATIONS SET INTO THE OPERATION TABLE. 

THIS TABLE (CONSISTING OF 15 LOCATIONS ; IS TC BE 
LOADED WITH THE FUNCTION CODES FOR EACH OPERATIC 
TO BE PERFORMED IN SEQUENCE. THE NUMBER CF EMI 
MAY BE FROM ONE (H TC FIFTEEN (15:. MARE SURE 
THE NUMBER OF FUNCTION CODES SET IN THE TABLE IS 
BY THE NUMBER IN LOCATION 724 (CPNUM; 



HOI 



'^wift -t:^:'> :r:>.er '*ac^i: r.icos^ ib-sEP-rt i8:i3 page s 
::TjE:.Pii is-sep-'s i5-2s 

£42 

£43 I PAGE 4) 

iJs b.2 DfiTfl FORMATS (BIT 7.b,5.4 OF UNIT DESCRIPTION) 

IS H=NINE TRACK NORMPL: £ FRfiMES PER WORD 

Sijg 15=C0RE DUMP: 4 FRAMES PER WORD 

253 £.3 DENSITY (BITS 10, q. 8 OF UNIT DESCRIPTION) 

ill 4=lb00 BPI:PE (PE USES ONLY ODD PARITY j 

5c3 3=aC0 BPI:NRZI 

2=9G0 BPI:NRZI 

=55 1=556 BPI:NR2I 

256 0=200 BPI:NR2I 

lie 6.4 PARITY (BIT 3 OF UNIT DESCRIPTION) 

|P 1=EVEN PARITY 

ill OsODD PARITY 

IH 6.5 SLAVE SELECT CBITS 2,i,0 OF UNIT DESCRIPTIONS) 

3G.4 

265 SET TO DEVICE SLAVE ADDRESS (0-7) 

tew* 



101 



'wia JTIir^i DRIVER "^HCNii rvlCOfci ife-SEP-7fe lS:i3 PAGE 9 

DZTL'ED.Fil lb-5EB--'6 15; 24 

5|9 I PAGE 5) 

ir; 7. PROGRPM DESCRIPTION 
272 

IrS IN ORDER TO MfllNTfllN THE CONTINUOUS EXECUTION OF 

THE OPERATIONS DESCRIBED THE PROGRfiM IS ORGANIZED fiS 
276 FOLLOWS: 



9 START 

=ri INITIALIZE THE RH 

SSO SET UP TAPE PARAMETERS (DENSITY, PARITY, FORMAT: UORD COUNT, FRAME CCu'T, 2J= AC 

fcT SELECT DEVICE TO TEST (DRIVE NUMBER, SLAVE NUMBER) 

§1$ EXECUTE OPERATION (SET FUNCTION AND FROM OP TABLE AND SET GO=i, 

£33 flWAIT END OF OPERATION (READY DELAY) 

284 STOP IF SWITCH 15=1 

295 DO OPERATION DELAY (OP DELAY) 

%U STOP IF LAST OPERATION IN SEQUENCE AND SU' CH 14=i 

287 POINT TO NEXT FUNCTION CODE IN OP TABLE 

268 JUMP BACK TO START 

pn 7.1 FLOW: START: HOUSEKEEPING 

291 INH: CLEAR MASSBUS AND TM02 

m SET UP: SET UP REQUIRED REGISTERS 

foS EXECUTE: SET FUNCTION AND G0=1 

fgn AUAIT END: LOOP ON DRY=1 AS LONG AS ALLOWED BY READY DELAY 

295 STOP: IF SWITCH 15=1 

2% DELAY: PER OP DELAY 

2^ END OF RSEQUENCE- IF NOT JUMP TO START 

298 STOP: IF SWITCH 14=1 

299 JUMP TO START RESTART SEQUENCE 

231 7.2 VARIATIONS: THERE ARE TWO VARIATIONS MADE FROM THIS FLOW. 

2C2 BOTH ARE CAUSED BY A PARITCULAR FUNCTION CODE. 

3C3 If ft READ REVERSE IS TO BE EXECUTED, TJ€N THE 

304 BUS ADDRESS IS INCREMENTED BY THE SlZE ^ T|€ 

305 RECORD BECAUSE THE DATA IS LOADED INTO MEMORY 

^ IN REVERSE (I.E: HIGH ADDRESS TO LOW ADDRESS) ^ 

THE SECOND VARIATION IS CAUSED BY A SPACE (FORWARD OR REVERSE) 
OPERATION AND IT IS THAT THE FRAME COUNTER IS SET TO A -1 
309 SO THAT ONLY ONE (1) RECORD IS SPACED OVER. IF YOU WISH 

'nC TO SPACE OVER MORE THAT ONE (1) RECORD. SET LOCATION IIQO iS: 

5*1 TO THE TWOS* COMPLIMENT OF THE NUMBER OF RECORDS DESI.RED. 

5?2 

313 3. LISTING 

314 

ill ^' .TITLE TU1& UTILITY DRIVER 

317 :MAINOEC-li-DZTUE-0-D 

318 • ; 15 FEB 75 
Sll R. BARNES 

223 REVISED APRIL ,197b BY S. CARPENTER 

221 1) SUPp6rTS SOFTWARE, SWITCH REGISTER 

w 2) SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 

252 .ABS 
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324 
325 
32a 
3|r 

329 
332 
331 

•3-35 

333 
334 
335 

336 33CQ0Q 

337 QOQCQl 

338 00QOO2 

339 CI000C3 
34G C0CC34 

341 0Q0C05 

342 Q02GQ6 

343 000007 

345 000046 

346 0CC:46 0C017C 
3'*7 
348 
349 
350 
35i 

ICO 

353 0G:i7fc 

WW ' www » * W WW WWWW 

255 
3S6 
357 
358 
359 . 
36C 
361 
362 
363 
364 
365 

366 000200 
I 367 CDCcCO 000167 001110 
; 368 C0Q603 
i 369 
' 370 
I 371 

i 372 000600 172440 CI 
i 273 000602 172442 UC 
I 374 0C06C4 172444 Bfl 
i 275 000606 172446 FC 

376 00C610 172450 CS 

377 C00612 172452 DS 
279 000614 172454 ER 
379 302616 172456 fiS 
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.•CONSOLE SWITCHES 

:SW 15=1(100000) STOP ON EACH OPERfiTION 

: 0 CONTINUE 

:Sw 14=U040000) STOP ftT END OF SEQUENCE 

: 0 CONTINUE 

:SU 13=1(020000) ICJNORE END OF TAPE (EOT) 

; 0 REWIND AT END CF TAPE (EOT; 

; REGISTER EQUIVES 

ROsXO 
R1S-/.1 
R2='<2 
R3=v.3 
R4=X4 

ns-y.5 

SP=X6 
PC=X7 

.=46 

RESTART: 170 ;ALlOU RESTART UHEN <Lr> IS PRESSED 

DURING CHANGING OF SUREG IF SOFTyARE aUITC 
•REGISTER IS USED. 

: SOFTWARE SWITCH REGISTER»»»«»»«*»* 

5UREG: 0 .-SOFTWARE SWITCH :-(£GISTER 

;THIS PROGRAM SUPPORTS THE SOFTWARE SWITCH REGISTER L0C.I76. 
•REFER TO SECTION 5 OF DOCUKENT FOR DESCRIPTION 

; STARTING ADDRESS 
.=200 

jnP SETUR 
.=600 

;Tf102 REGISTERS 

172440 
172442 
172444 
172446 
172450 
172452 
172454 
172456 



KOI 



T I 



Jib UTIwITY DRIVER 



TUED.Pll 

3S0 OCfO&SO 

331 OOCbSS 

382 000624 

393 000&2E) 

394 000830 

395 C00&32 
38b 
387 

393 

399 20Qb34 

390 0C0b3b 

391 

392 

393 

394 000840 

395 0S2t42 

396 OgOb4H 
39f OwCb4b 



lb-SEP-7b 15:24 

1724b0 
172462 
1724b4 
I724bb 
172470 
172472 



177776 
177570 
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177550 
I775t2 
177564 
177566 



CC 
OB 
•'R 
OT 
SN 
C2 



P5U: 
SUR: 



TKS 
TKB 
TPS 
TPB 



172460 
172462 
172464 
17246b 
172470 
172472 

; PROCESSOR ADDRESSES 



177776 
177570 

:TTY REGISTERS 

177560 
177562 
177564 
177566 



; PROCESSOR STATUS 
•SWITCH REGISTER 



TTY READER STATUS 
TTY READ BUFFER 
TTY PUNCH STATUS 
TTY PJNCH BUFFER 



LOl 



TUlb UTILITY DRIVER MftCYU 
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3S8 
399 

400 

401 000700 

402 000702 

403 000704 

404 000706 

405 000710 

406 0Q0?i2 

407 000714 

408 000716 

409 000720 

410 000722 

411 000724 

412 000726 

413 000730 

414 000732 

415 000734 

416 000736 
417 

4-8 
419 
420 
421 
422 
423 
424 

42e; 

426 
427 
423 
429 
430 
431 
«*32 
433 
434 
435 
436 
437 
438 
439 

440 000740 

441 000742 

442 000744 

443 000746 

444 000750 

445 000752 

446 000754 

447 000756 

448 000760 

449 000762 

450 000764 

451 C00766 

452 000770 
^53 



000700 



000000 
002300 
177760 
177770 
004000 
005001^ 

loooolr 

000001 
010000 
000001 
000001 
000000 

ooooco 

000000 
000000 

ooonoQ 



000060 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

cooooo 

000000 
000000 
000000 

ocooco 



DRVN: 
UDES 
FCNT 
UCNT 
RPDDR: 
UADOR: 
RDYDLY: 
RDYDX: 
OPDLY: 
OPDX: 
OPNUM: 
TIB: 
TOB: 
COUNT: 
R05U: 
TEMPST: 



OPTBL: 



.=700 

;5ET PflRflMETERS DESIRED FOR UNIT UNDER TEST««### 



DRIVE NUMBER 
SLAVE DESCRIPTION 
FRAME COUNT 
UORD COUNT 
READ ADDRESS 
URITE ADDRESS 
READY DELAY 

READY DELAY MULTIPLIER 
OPERATION DELAY 
OPERATION DELAY MULTIPLIER ^ 
NUMBER OF OPERATION (1 TO 15) 



0 

2300 
-20 
-10 
4000 
5000 
100000 
1 

10000 
1 
1 
0 
0 
0 
0 
0 

OPERATION TABLE»»»*»»**** 

ENTER OPERATION SEQUENCE DESIRED. ^ 
MUST HAVE AT LEAST 1 OPERATION, AND 
MAY HAVE UP TO 15(8). _ ^^..^ 
SET THE OPERATION COUNTER EQUAL 
TO THE NUMBER OF OPERATIONS IN 
THE SEQUENCE. 



20 
02 
06 
10 
26 
24 
30 
32 
50 
56 
60 
70 
7b 



READ IN PRESET 
REUINO-OFFLINE 
REMIND 
DRIVE CLEAR 
URITE TAPE MARK 
ERASE 

SPACE FORkiARO 
SPACE REVERSE 
WRITE CHECK FORWARD 
URITE CHECK REVERSE 
URITE FORWARD 
READ FORWARD 
READ REVERSE 



bO 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



;FILL WITH OPERATION SEQUENCE 



mi 



H51 



NOl 
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M55 

4S& 
457 
45S 
459 
4b0 
4bl 
4b2 
4b3 
4b4 

4b5 
4bb 
4b7 
4b8 
4bg 
470 
471 
472 
473 
474 
475 
47b 
477 
478 
479 
480 
481 
482 
483 
484 
485 
48b 
487 
488 
489 
490 
491 
492 
493 
494 
495 
49b 
497 
493 
499 
500 
501 
502 
503 
504 
505 
50b 
507 
508 
509 
510 



001000 
001C04 



00 
00 



00 

oc 
oc 
oc 
oc 
oc 

00 
00 
00 

oc 

00 

oc 
oc 

00 
00 

oc 
oc 

00 



012 
Clb 



03b 
044 
052 
QbO 
0b2 
Obb 
070 
074 
07b 
104 
110 
HE 
120 
122 
130 
134 
13b 
142 



001144 
001150 
001154 
00115b 
001 IbO 
001 lb4 
OOllbb 
001170 
001174 
001200 
0ai20b 
001210 
001212 
001214 
Q0121b 
001220 
001222 
00122B 
001230 
001232 
00123b 
001240 
001242 
00124b 
001252 
001254 
Q0125b 
0012b0 



001000 



01270b 
012777 



.=1000 

; START OF PROGRAM********** 



e 



5700 
2701 
2777 
6777 
h777 
f,777 
6777 
2102 
022702 
001403 
022702 
001003 
012777 
022702 
103404 
016777 
000413 
016777 
022702 
001405 
016703 
005403 
060377 
052702 
000240 
000240 
010277 
000240 
000240 
016704 
01b703 
032777 
001005 
005303 
001372 
005304 
001366 
000240 
005777 
100001 
000000 
004767 
000240 
000240 
016704 
016703 
005303 
001376 
005304 
001372 



177410 
000302 



177454 
177446 



177622 



77566 
77530 
77526 



000500 
0C0340 

177706 
000740 

17764D 
17763b 
177626 

000030 

000032 

177777 
000060 



177574 177464 

177562 177454 
000070 

177542 

177434 
000001 



177414 



177522 
177514 
000200 



START: 


MOV 




MOV 




MOV 




MOV 


P: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




CMP 




BEQ 




CMP 




BNE 


AA: 


MOV 


AO: 


CMP 




8L0 




MOV 




BR 


Al: 


MOV 




CMP 




BEQ 




MOV 




NEG 




ADD 


A3: 


BIS 




NOP 




NOP 




MOV 




NOP 




NOP 




MOV 


80: 


MOV 


B: 


BIT 


BNE 




OEC 


> 


BNE 




DEC 




BNE 




NOP 


C: 


TST 




BPL 




HALT 


0: 


JSR 




NOP 




NOP 




MOV 


EO: 


MOV 


E: 


DEC 




BNE 




DEC 




BNE 



11500, SP 

it34oiapsu 

OPNUM.RO 

ItOPTBL.Rl 

«40,3CS 

DRVf<,aCS 

UDES,3C2 

RCNT an: 

FCNT,aFC 
(R1)+.R2 
«30,R2 
Aft 

«32,R2 

AO 

«-i,aFC 

«60,R2 

Al 

UADOR.aBA 
A3 

RA00R.36A 
1170, R2 
A3 

FCNT,R3 
R3 

R3,a6A 
«1 R2 



R2,aci 



R0YDX.R4 
RDYDLY.R3 

«200.a6s 

C 

R3 
8 
R4 
BO 

3SUR ' 

0 

PC.CKSWR 



0PDX.R4 
0PDLi',R3 
R3 
E 

R4 
EO 



SET COUNTER 
SET POINTER 

JrIvE NUMBER 

UNIT DESCRIPTION 

UOPD COUNT 

FRAME COUNT 

SET OP CODE 

SEE IF SPACE FORUARO 

IF SO: BR 

SEE IF SPACE REVERSE 
IF NOT: BR 

SET TO SPACE ONE RECORD 

SEE IF READ OP 

IF 50' BR 

SET WRITE ADDRESS 

SET READ ADDRESS 

SEE IF READ OPERATION 

IF SO: BR 

GET FRAME COUNT 

SET BUS ADDRESS FOR READ REVERSE 
SET GO BIT ^ - , 



: START OPERATION 



;SET DELAY MULTIPLIER 
;SET READY DELAY 



;IF DRY: BR 



; DELAY FOR DRIVE READY 

:SEE IF STOP ON OPERATION 
•IF NOT: BR 

; CHECK FOR CNTL G 

;SET DELAY MULTIPLIER 
•SET OPERATION DELAY 



; DELAY BETWEEN OPERATIONS 



BOS 



DRIVER MflOH £711006) 
l&-SEP-r6 15:24 



lb-SEP-7b IS: 13 PAGE 15 



511 

5:£ 

513 
5iH 
515 
515 
517 
519 
519 
520 
5£1 
522 
523 
3£H 
525 
52& 
527 

530 
531 
532 
533 
53H 
535 
53S 
537 
538 
539 
540 
541 
542 
543 
C14U 

545 
546 
=47 
549 
543 
55C 
551 
552 
553 
554 
555 
556 
557 
55S 
> 

560 
562 
564 



QC1262 
•:01266 
001270 

001272 
CC13C0 
001302 
001304 
C01310 



001314 
001316 
001322 
001326 
001332 
X1336 
0C134Q 
001342 
C0134H 
X135C 
001354 
001360 
001366 
00137M 
001376 
X14Q0 
001402 
001410 
001414 
X1420 
001426 
0Ci4X 
001434 



001440 
001446. 
CC1452 
001456 
001460 
001466 
X1474 
X15Q2 
X1510 
001516 
001520 
001526 
001530 
001532 
001536 



304767 000152 

005300 

001254 



032777 040000 17^336 
001401 
000000 
004767 
000167 



000230 
177464 



000240 
016701 
012700 
012702 
062701 
010122 
005300 
X1373 
012706 
0137% 
013746 
012737 
022777 
X1402 
000404 
022626 
012767 
012637 
012637 
023727 
X1002 
004767 
000167 



022777 
001C33 
032777 
X1427 
012777 
016777 
016777 
012777 
032777 
X1774 
032777 
001374 
X5726 
000167 
300207 



177256 
XX15 
000602 
000002 



000500 
000006 
000004 
001400 
177777 



000176 
00QC04 
000006 
000636 

000156 
177340 



C2C000 

0Q20X 

000040 
177206 
177202 
000007 
000200 

020000 
177242 



IS: 

SETUP: 
SETft: 

SUShiR: 



000004 
177242 



IS: 

177226 2$: 
3S: 

000176 



aO: 



177170 RUND: 
177134 

177122 

177114 
177130 
177070 

177074 RUNDfl: 
177064 RUNDB: 



RUNOX: 



JSR 
DEC 
BNE 

BIT 

BEQ 

HALT 

JSR 

JMP 



PC.RWND 
RO 

A 

140000. asuR 
IS 

PC.CKSUR 

stArt 



'iO SEE IF REUI:iD 

IF SEQUENCE NCT DONE: BP 

SEE IF HALT CN SEQUENCE 

; CHECK FOR CNTL G 



:RH REGISTER 5ETUPm»»»*»»#* 



NOP 

r,y 

MOV 
MOV 
AOO 
MOV 
DEC 

Bre 

fiov 

MOV 

MOV 

MOV 

CMP 

BEQ 

BR 

CMP 

MOV 

MOV 

MOV 

CMP 

BNE 

JSR 

JMP 



ll^.RC 
IUC.R2 
12. Al 
Rl,iR2)* 
RO 
SETf) 
•500. SP 
ai6,-(SP) 
314, -(SP) 

iis,ai4 

l-l.SSMR 

2S 

3S 

(SP)*.£SP)* 

•3URE6.SUR 

(SP)*,fli4 

(SP)*,ai6 

SiSUR.tSUREG 

GO 

P^^NTLU 



GET ADDRESS OF CSi 

SET NimR OF REGISTERS 

GET FIRST ADDRESS 

INCRE?«NT 

LOAD ^DRESS 

SEE IF DONE 

IF NOT: BR 

:SAVE VECTORS 

:5ET UP FOR TI«CUT 

jREFE&NCE HARDUARE SUITCH REGISTER 



: ADJUST STACK 

; PC INT TO SOFTWARE SiilTCH REG 
I RESTORE VECTORS 

:IS SOFTUARE REG USED 
'BRANCH IF NC 

•ALLCM SOFTARE SUITCH REGISTER t: K CHANGE 
GO START EXECUTION 



;EL5E 



: REMIND FROW EOT (PER SU13) 



BIT 
BNE 
BIT 
BEQ 
NOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
BIT 

^ 

JMP 
RTS 



«2X00.SSUR 
RUNDX 

•2000. aos 

RUNDX 

»40,acs 

DRVfj,3CS 

iiDEs!ac2 
•7. ail 

•260.3DS 

RUNDA 

•20000.805 

RUNDB 

iSP)* 

START 

PC 



SEE IF 
IF SO: 



IGNORE EOT 
BR 



SEE IF AT EOT 
IF NOT: BR 

ill DRIVE NUMBER 
SET SLAVE NUnBER 
START REUINO 
SEE IF DRY 
IF NOT: BR 
SEE IF PIP RESET 
IF NOT: BR 
RESET STACK 
RESTART SEQUENCE 
RETURN 



:CK5UR ROUTINE THAT ALlOUS THE LOADING OF LCC.176. SUREG»»*»»*»*»* 
IFROM the TTY at SELECTED POINTS WITHIN THE PROGRAM********** 



COS 



T.lb lTIwIT> driver Mi^CVll £7(1006) lb-SEP-7b 18:13 PfiGE lb 
DZTLECPll i&-5EP-r& 15:2** 



567 

5b8 a0154C 

m m 

571 001554 

572 COlSSb 

573 301564 

574 001572 

575 001600 
575 0Q1602 

577 Xlb06 

578 301612 
57g 001616 
580 001622 

531 301626 

532 X1632 
583 301636 
5SS 301642 

585 0016% 

586 001652 
587 

538 3C165H 

539 001660 

590 001666 

591 K31672 

592 X1700 

593 001706 

594 001710 
5« 001712 

596 001714 

597 QC1722 

598 001724 

599 001732 

600 001736 
631 001744 
532 001746 
635 0017SC 
634 001752 

605 001760 

606 301762 

607 001773 
E3fi 001772 

609 001776 

610 002002 
002004 
002010 
002014 

514 002020 

615 032026 

616 002034 
6:7 032040 
%19 302342 
6:5 0C23H4 



611 
61c 



322767 

ff 

100036 
017767 
042767 
022767 
001024 
012704 
004767 
312704 
004767 
017703 
004767 
012704 
004767 
005037 
004767 
000207 

005067 
012767 
004767 
042767 
122767 
001032 
005726 
000737 
122767 
001013 
012767 
004767 
022767 
001037 
00S726 
000743 
122767 
003004 
122767 
303005 
012704 
004767 
000742 
006367 
006367 
006367 
142767 
156767 
005367 
001754 
000711 
016777 
003735 



0Q0C15 

000200 
000150 
000007 



000060 
000067 

002535 
000052 

176726 
176722 
176716 
000060 
176674 
176672 



177070 CK5WR: 



177145 
177134 
177126 



0301. a 
177064 

177060 
177600 
000007 

002512 
000242 
002516 
000232 
177010 
000354 
002525 
000212 
000736 
300002 



177056 

000007 177044 
000546 
177600 
000025 



177026 
177020 



17673Q 
176702 



CNTLU: 



OUT: 

SREAO: 

li: 



3S: 

177004 2S: 

177002 
176766 

SS: 

176746 4 J: 
176736 

5S: 



6S: 



:766fc6 176564 7i: 



CMP 

?g?B 

BPL 
MOV 
SIC 
CMP 
BNE 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
CLR 
JSR 
RTS 

CLR 
MOV 
JSR 
BIC 
CMPB 
BNE 
TST 

BR CNTLU 
CMPB 
Bf€ 
MOV 
JSR 
CMP 
BNE 
TST 
BR 
Cffi»8 
BGT 
CMPB 

acT 

MOV 
JSR 
BR 
ASL 
ASL 
ASL 
BIOS 
BI5B 
DEC 
BEQ 
BR 
MOV 
BP 



ISUREG.SUR 

OUT 

aTKB.TIB 
•177600. TIB 
i7.TIB 

out 

•ICNTG,R4 
PC.TTOUT 
MSMSUR.R4 
PC.TTOClT 
3S^R.R3 
PC.OdTPE 
•imEU,R4 

pc.ttoOt 

aitEMPST 
PC.SREAO 
PC 

TEMPST 
■7. COUNT 
PC.TTIN 
■1^7600. TIB 
•25.TZB 
2f 

(SP)+ 

'llS.TIB 
4S 

•2C0.RDSU 
PC.TdRLF 
•7. COUNT 
7$ 

(SP) + 
OUT 

•60, TIB 
5t 

»67.TIB 
6f 

•SQUEST.R4 
PCTTOUt 
3S 

TEMPST 
TEMPST 
TEMPST 
160. TIB 
TIB. TEMPST 
COUfiT 
5S 
IS 

TEMPST. 25UR 
SS 



•.SOFTWARE SUITCH REG pSESE'*- 

;R£a6y. get CHARAC'EP 
;AND StRIP OFF 

:THE r 
:IS IT A <tG> 



GARBAGE 



:G0 READ A LINE 

; RETURN TO MAIN SX' jf 'ROGPA" 



GO READ A CHARACTER 
STRIP OFF GARBAGE 
IS IT A tU' 
BRANCH IF NOT 
POP THE STACK 
START OVER 
IS IT A ^CR>' 
BRANCH IF NOT 



ECHO IT WITH 
UAS IT FIRST 



LF; 

HARACTER 

CHANGE SUR'IF NOT FIRST :?€ 
POP THE STACK 
GET CUT 



: START OVER IF NO' LEGAL CHARACTES 

:GET NITTY-GRITTY 
;ONtY WANT 6 DIGITS 

; CHANGE SWITCH REGISTER CCNTEN'S 



:ZTijEC.PiI lS-5EP-7b i5:24 



MflCMl SrilOOb? lb-SE5-7fc 19:13 PAGE i: 



DOS 



b£3 
b2H 
&25 
b3& 
b27 
b29 
hi'i 
b30 
b31 

baa 

b33 
b3S 
b3E 
b3b 
b37 
b3S 
b?3 
b40 
b41 
bH2 
b43 
b44 
b45 
&46 
647 
b49 
t49 
bSS 
bsl 
bSa 
s=3 
b54 
b55 
bSb 
£57 

=55 
b&O 
sbl 

bb3 
£:b4 
665 

bbb 

&b7 

bb9 
e7C 
b7l 
672 
672 
674 
675 
676 
677 
67S 



002QSM 
QC20&0 
002C6S 
002070 
a0207b 
002100 
002104 
002106 
002114 
002120 
002124 
002130 
002134 
C02136 
002140 
0021% 
002152 
00215b 
002160 
OQHlbc 
0Q21bB 
002170 
002174 
00217b 
002204 



Q2220b 
002214 
00221b 
002220 
002224 
00222b 



002234 
002240 
DC2244 
002246 
002252 
002256 

0G22b2 
002264 

002270 
002272 
002274 
00227b 
002300 
002302 
002304 
002310 
002312 
Cu22:4 



Il24b7 
1227b7 
0014% 
I227b7 
001403 
0047b7 
0007b3 
1127b7 
0047b7 
312703 
005067 
0Q47b7 
005303 
001372 
1127b7 
0047b7 
I057b7 
100401 
000735 
035067 
000406 
105777 
100375 
llb777 
000207 



l7bb5C 
000043 



7 000045 

0000b4 

000015 
000050 
000004 

i7bboo 

000034 



000012 
00001b 
17b55b 



176546 
176450 
I7b52b 



I7bb42 
I7bb32 



TTCUT: 



I7bbi4 'CRLF: 



TCRLFfl: 



i7b5b2 



I7b442 



IS: 

TOG: 



TEX: 



D127b7 000001 300222 OCTPE: 
010304 
000410 
0050b7 
010304 
001004 
0047b7 
0001b7 
032704 
001406 
012704 
004767 
000167 
005004 
004767 
010304 
006004 
006004 
00600S 
006004 
000304 
004767 
010304 
006004 
000304 
004767 



000212 



000162 
000120 
100000 

000001 
000116 
000006 

000104 



OCTP: 
OCTPE 1: 



OCTPO: 



OCTPl: 
0CTP2: 



000064 



: rTY OUTPUT SUBROUTINE************ 



HOVB 

cnPB 

BEQ 

CMPB 

BEQ 

JSR 

ER 

MOVB 

JSR 

MOV 

CLR 

JSR 

DEC 

BNE 

MOVB 

JSR 

TSTB 

BMI 

BR 

CLR 

BR 

TSTB 

BPL 

MOVB 

RTS 



vR4)*.T0B 
■43.TdB 

TEX 

145, TOB 

tcrCf 

PC.TOG 

TTftuT 

•15.T0B 

PCtOG 

•4.R3 

T06 

PC, TOG 
R3 

TCRLFfl 
■12.T0B 
PC.TOG 
R0&4 
t X 

ttOUT 

ROSU 

TEX 

3TPS 

TOG 

TOB.STPB 
PC 



:DC FILLERS 



: OCTAL OUTPUT SUBROUTINE************ 



MOV 

MOV 

BR 

CLR 

MOV 

m 

JMP 



00C052 



MOV 

JSR 

JMP 

CLR 

JSR 

MOV 

ROR 

ROR 

ROR 

ROR 

SiMB 

JSR 

MOV 

ROR 

SUAB 

JSR 



•l.OFL 
R3.R4 

xtpo 

OFL 

R3^4 

OCTPO 

PC.OCTPGl 

CCtPS 

tl0Q000,R4 

OCTPl 

•1.R4 ^ 

PC.OCTPG 

0CtP2 

R4 

PC.OCTPG 

R3.R4 

R4 

R4 

R4 

R4 

R4 

PC.OCTPG 
R3,R4 
R4 
R4 

PC.OCTPG 



; CLEAR FLAG FOR LEADING ZERO 
;SEE IF NUMBER IS ZERO 
;IF NOT ZERO: 3R 
ELSE PRINT ZERO 
; SPACE AND EXIT 
"IE IF MSD ' 1 
NOT: BR 

: PRINT 1 



; PRINT 0 



:POSITION DIGIT 



:PRINT DIGIT 2 



:PRINT DIGIT 3 



TL'IS L'TIlIT^ drives HACYll SrilOOb^ lb-SEP-7b 
rrTL'EC. PU l&-SEP-r6 15:24 



19:13 PAGE 18 



E02 



hi 



£79 002322 

bSO 00232H 

1 m 

b93 002232 

694 002336 

635 0C23HQ 

&S6 0023H2 

537 002344 

639 002346 

699 0023S2 

690 002354 

691 0C2360 

692 002366 

693 002372 

694 002374 

695 002400 

696 O02'*02 

697 002406 
693 002410 
699 002412 
70C 002416 
-01 002422 
7C2 002426 
703 002432 
7:h 002434 
7:= 002436 
706 

707 
7''S 

729 CC244Q 

7i0 0024H4 
CQ2450 

12 002454 

713 002460 

7H 202464 

7:S 002466 

7:5 002474 

717 002500 

718 202502 
715 002510 
720 

721 002512 

' " 002516 
002524 

724 002525 

725 002532 
^26 002535 
727 

72S 
729 
730 

72: 



723 



310304 
006104 

»i 

004767 
010304 
006004 
006004 
006004 
004767 
01C3G4 
304767 
012767 
004767 
000207 
042704 
001004 
005767 
001001 
000207 
005267 
0527D4 
010467 
004767 
010304 
000207 
CCOOOO 



057045 
051445 
043 
040 
020075 
077 
004000 
DOOICO 



3C5G00 

"''.r 1 rr 



000036 



000022 
000014 

00024C r634£ 
177576 

177770 

Q00C3C 



000020 
000260 
176302 
177536 



005077 
005077 
005067 
005277 
105777 
100375 
017767 
105777 
100375 
116777 176220 176136 
000207 



176174 
176172 
176252 
176160 
176154 

176150 176232 
176144 



021507 
051127 

047040 
C-i3 
021445 



020075 
053505 



0CTP3: 
OCTPG: 



OCTPGO: 
CCTPGl; 



OFL: 

TTIN: 

TTINi: 
TTIN2: 



SCNTG: 
inSUR: 



MOV 

ROL 

ROL 

5UAB 

JSR 

MOV 

ROR 

ROR 

ROR 

JSR 

MOV 

JSR 

MOV 

JSR 

RTS 

BIC 

BNE 

TST 

ENE 

RTS 

INC 

BIS 

MOV 

JSR 

MOV 

RTS 

0 



R3.R4 
R4 
R4 
R4 

PC.OCTPG 

R3,R4 

R4 

R4 

R4 

PC.OCTPG 
R3,R4 
PC.OCTPG 
•2'^O.TOB 

pc,t6g 

PC 

1177770, R4 

OCTPGO 

OFL 

OCTPGO 

PC 

OFL 

•260.R4 

R4,t6b 

PC. TOG 
PC 



; PRINT DIGIT 4 



; PRINT DIGIT 5 

; PRINT SPACE 
:EXIT 



; FIRST CHAR FLAG 



;TTY READ SUBROUTirCt#**f»#»»» 



CLR 

CLR 

CLR 

INC 

TSTB 

BPL 

MOV 

TSTB 

BPL 

MOVB 

RTS 

.ASCII 
.ASCII 



SMNEU: .ASCII 

SQUEST: .ASCII 
.=4000 
.REPT 
0 

.ENDR 

. sSOOO 

.REPT 

177777 



m 

TIB 

9TKS 

STKS 

TTINI 

8TKB.TIB 

3TPS 

TTIN2 

TIB.aTPS 

PC 

/•/.tGl-' 
/y.SWR= I' 

/ NEK= 
100 



IOC 



7^ .-T^n-i 



FOP 



.tNDR 
.EMD 



Goa 



'wis -'iLi:^ DRIVER MACYll 
rr-EC.Pil l&-5EP-:b 15:24 



3 



CNTLU 
COiJNT 

cs 

:i 

Ci 

r 
*^ 

DS 

cs 



EZ 
FC 

FCNT 

aw 

MS 
OCTF 

CirTPE 

CCTPEl 
:CTPG 
CCTPGO 

WW I 

OCTPO 



:tpgi 



OwTPi 
CCTP2 
jC i r3 
DFL 
C'PDLY 
CPDX 
C'PNJfl 
CFTBL 
CUT 
PSU 
RhODR 
nS£U 
RD'^LY 
RDYDX 
RESTAR 
RUf€ 

Rkr€B 



Q0l07b 
OOCblb 
D01104 
001152 
''0' 150 
501200 
000604 
Q01I74 
001222 
000620 
001540 
001612 
000732 
000610 
000600 
000632 
001232 
000622 
000700 
000612 
000626 
001252 
000611 
001246 
X060& 
000704 
001434 
C00624 
002220 
002206 
002224 
002374 
002412 
002416 
002240 
002262 
002270 
002360 
002436 
000720 
000722 
000724 
OC0740 
001652 
000634 
000710 
000734 
000714 
000716 
0000% 
001440 
001510 
C0152Q 
0C1536 
201332 



4a3« 

Mro 

3"9« 

4-2 

475 

477 

492t 

3741 

4qi« 

4«3 

380t 

502 

544 

4141 

376 « 

3721 

385» 

500 

381 1 

4Qlt 

377t 

383t 

507« 

37Sf 

506t 

375M 

4031 

543 

392t 

&56i 

561 

6571 

664 

695 

659 

655 

662 

665 

660 

653« 

403« 

413t 

411t 

4401 

569 

3891 

405t 

415t 

407t 

4081 

3461 

511 

5571 

559i 

550 

S27« 



:7aC06) i6-SEP-7b 19:13 PAGE 
CROSS REFERENCE TABLE - 



513 
473t 

474« 

47311 

480 

495 

476* 

497 

499» 

518 

5781 

599* 

463* 

487* 

465« 

5021 

464 
492 

508 

510 
467* 
457 
5451 



"JSER SYMBOwS 



653t 

667 

697 

700i 

659 

666i 

6681 

69Ii 

656* 

506 

505 

461 

462 

571 

459* 

478 

598* 

491 

490 

549t 

558 
560 
552 
530 



434 • 

479* 



56at 

595 

600 

464* 

524 

555* 



554 
551 



473* 
481 



674 
6991 

6611 



696 

575 
641 



433* 



616* 
553* 
556* 



557 



554* 



559 



678 693 



688 



690 



694t 



699* 7051 

586t 603 
644* 



5631 



H02 



r^AC^'ll £r>lCOb) Ib-SEP-7b IS: 13 PftGE 22 
*6 15:24 CROSS REFERENCE TflBuE - USER S'lMBOLS 



SE'uP 
5.N 

ST^RT 
SU5UR 
5UR 

'CRLF 
TCRLFfl 
TE»!FST 
TEX 

'■TP 
• wsJ 

TPS 

TPS 

TTIN 

TTINl 

IT INS 

TTCUT 

XES 

WONT 
JCNTG 

snrcu 

inSUR 

SC'JEST 

IREAD 



C0i314 
0CCb3G 

m 

000b3b 

OQOirb 
no£:ob 

002154 
02073b 
QC2204 
00072b 

CG0b4£ 
000b40 
CQ073Q 
002170 
Q00b4b 
Q00b44 
002440 
0024b0 
002474 
002054 
000702 
000712 
000b02 
00070b 
002512 
002525 
00251b 
002535 
001b54 
0C5200 



3a • 










3S4* 






bbc 




459« 


sIt 


cue 




b3c* 










290i 


4*3T 




bdb 


CIO A 


3541 


bi39 


CU3 


eco 
bbc 




POO 


be? 


CIS* 

bdcl 






b35l 


b38 








41bM 
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